COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(* $A+,D+*)
C00004 ENDMK
C⊗;
(* $A+,D+*)
program RATES(OUTPUT);
var C, C0, D, E, F, G, GL, I, N, Y : integer;

begin
writeln(OUTPUT,'Yield  I     1         2         3         4         5         6');
writeln(OUTPUT,'           =   0     =   0     =   0     =   0     =   0     =   0');
writeln(OUTPUT,'INFLATION');
for I := 1 to 15 do
    begin
    write(OUTPUT,I:3,'   ');
    for Y := 1 to 6 do
	begin
	N := 1;  C := 500000; E := 10000;
	F := 0; C0 := 500000;
	while (N <= 40) and (C > 0) do
	    begin
	    G := (C*Y) div 100;
	    D := G - E;
	    if (C < C0) and (F = 0) then 
		begin
		write(OUTPUT,N:6);
		F := 1;
		end;
	    C := C + D;
	    E := ((E * I) div 100) + E;
	    N := N + 1;
	    end;
	if D > 0 then write(OUTPUT,'     -');
	if N <= 40 then write(OUTPUT,N:4) else write(OUTPUT,'   -');
	end;
    Writeln (OUTPUT);
    end;
end.